if ~show('L','rexxsupport.library') then;do;if ~addlib('rexxsupport.library',0,-30,0) then;do;say 'rexxsupport.library konnte nicht geöffnet werden!';say 'Bitte kopieren Sie die Library von ihren Workbench-';say 'disketten nach LIBS:.';exit 10;end;end;if ~show('l','cl_rexx.library') then;do;if ~addlib('cl_rexx.library',0,-30,0) then exit;end;gfxbase=showlist(l,'graphics.library',0,a);call forbid;FontAddress=next(gfxbase,154);Fontsize=c2d(IMPORT(offset(FontAddress,20),2));call permit;windowwidth=Fontsize*80;windowheight=Fontsize*30;windowY=Fontsize+1;WindowX=Fontsize;screen=CLGET_FrontScreenName();call close STDOUT;if ~open(STDOUT,'CON:'windowX'/'windowY'/'windowwidth'/'windowheight'/DH-Dokmanager1.4/SCREEN'screen,'W') then;exit 20;else;do;call close STDIN;call open STDIN,'*',R;call pragma '*';end;if ~open(emp,'Connectline:Rexx/Data/DH-Dokmanager/Daten/Empfaenger',READ) then exit;if ~open(bet,'Connectline:Rexx/Data/DH-Dokmanager/Daten/Betreff',READ) then exit;if ~open(dat,'Connectline:Rexx/Data/DH-Dokmanager/Daten/Dateien',READ) then exit;empanz=CL_GetText('Connectline:Rexx/Data/DH-Dokmanager/Daten/Empfaenger',emp)-1;betanz=CL_GetText('Connectline:Rexx/Data/DH-Dokmanager/Daten/Betreff',bet)-1;datanz=CL_GetText('Connectline:Rexx/Data/DH-Dokmanager/Daten/Dateien',dat)-1;do e=0 to empanz;do d=0 to datanz;do b=0 to betanz;if d=b then;do;say 'Versende Datei: 'dat.d;say 'mit dem Betreff: 'bet.b;say 'in das Brett: 'emp.e;say ' ';call CL_SendMailFull(AUTO,emp.e,dat.d,,,bet.b,,A);end;end;end;end;call CL_LogAdd(5,'CLMSORTIN','DH-Dokmanager: 'empanz+1' Verteiler - 'datanz+1' Datei(en)');close emp;close bet;close dat;exit
